let main _= 
  let f = open_in Sys.argv.(1) in
     let i = ref 1 in
     let j = ref 0 in
     try
         while true do
         let s = input_line f in
            if String.length s > 75 then
               begin
               incr j;
               print_int !i;
               print_string " <- must be normalized!";
               print_newline ();
               end;
               incr i;
           done
     with _ -> print_string "Nbr. of invalid line(s) : "; print_int !j; print_newline()


let _ = main() 
